home *** CD-ROM | disk | FTP | other *** search
- object FMForm: TFMForm
- Left = 200
- Top = 102
- Width = 435
- Height = 300
- Caption = 'File manager example'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- PixelsPerInch = 96
- Position = poDefault
- OnCreate = FormCreate
- TextHeight = 13
- object StatusBar: TPanel
- Left = 0
- Top = 219
- Width = 427
- Height = 41
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- object DirectoryPanel: TPanel
- Left = 0
- Top = 0
- Width = 185
- Height = 41
- Align = alLeft
- BevelInner = bvLowered
- BevelWidth = 2
- TabOrder = 0
- end
- object FilePanel: TPanel
- Left = 185
- Top = 0
- Width = 242
- Height = 41
- Align = alClient
- BevelInner = bvLowered
- BevelWidth = 2
- TabOrder = 1
- object Floppy: TImage
- Left = 24
- Top = 16
- Width = 16
- Height = 9
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Visible = False
- end
- object Fixed: TImage
- Left = 48
- Top = 16
- Width = 16
- Height = 9
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Visible = False
- end
- object Network: TImage
- Left = 72
- Top = 16
- Width = 16
- Height = 9
- AutoSize = True
- Picture.Data = {<image002.bmp>}
- Visible = False
- end
- end
- end
- object DriveTabSet: TTabSet
- Left = 0
- Top = 198
- Width = 427
- Height = 21
- Align = alBottom
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Style = tsOwnerDraw
- OnClick = DriveTabSetClick
- OnDrawTab = DriveTabSetDrawTab
- OnMeasureTab = DriveTabSetMeasureTab
- end
- object DirectoryOutline: TDirectoryOutline
- Left = 0
- Top = 0
- Width = 161
- Height = 198
- Align = alLeft
- ItemHeight = 13
- OnChange = DirectoryOutlineChange
- OnDragDrop = DirectoryOutlineDragDrop
- OnDragOver = DirectoryOutlineDragOver
- PictureLeaf.Data = {
- 16050000424D160500000000000036040000280000000E0000000E0000000100
- 080000000000E000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00050505050505
- 0505050505050505000005050505050505050505050505050000050000000000
- 0000000000050505000000FBFFFBFFFBFFFBFFFB00050505000000FFFBFFFBFF
- FBFFFBFF00050505000000FBFFFBFFFBFFFBFFFB00050505000000FFFBFFFBFF
- FBFFFBFF00050505000000FBFFFBFFFBFFFBFFFB00050505000000FFFBFFFBFF
- FBFFFBFF000505050000000000000000000000000505050500000500FFFBFFFB
- 0005050505050505000005F800000000F8050505050505050000050505050505
- 0505050505050505000005050505050505050505050505050000}
- TabOrder = 2
- Data = {10}
- end
- object FileList: TFileListBox
- Left = 161
- Top = 0
- Width = 266
- Height = 198
- Align = alClient
- FileType = [ftReadOnly, ftDirectory, ftArchive, ftNormal]
- ItemHeight = 16
- ShowGlyphs = True
- TabOrder = 3
- OnChange = FileListChange
- OnEndDrag = FileListEndDrag
- OnMouseDown = FileListMouseDown
- end
- object MainMenu1: TMainMenu
- Left = 337
- Top = 251
- object File1: TMenuItem
- Caption = '&File'
- OnClick = File1Click
- object Open1: TMenuItem
- Caption = '&Open'
- OnClick = Open1Click
- ShortCutText = 'Enter'
- end
- object Move1: TMenuItem
- Caption = '&Move...'
- OnClick = FileChange
- ShortCutText = 'F7'
- end
- object Copy1: TMenuItem
- Caption = '&Copy...'
- OnClick = FileChange
- ShortCutText = 'F8'
- end
- object Delete1: TMenuItem
- Caption = '&Delete...'
- OnClick = Delete1Click
- ShortCutText = 'Del'
- end
- object Rename1: TMenuItem
- Caption = '&Rename...'
- OnClick = FileChange
- end
- object Properties1: TMenuItem
- Caption = '&Properties...'
- OnClick = Properties1Click
- ShortCutText = 'Alt+Enter'
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- OnClick = Exit1Click
- end
- end
- end
- end
-